home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1997 to 1998 / Disney Interactive 1997-98 Software Sampler.iso / pc / media / 101floor.dxr / 00172_UpDown.ls < prev    next >
Encoding:
Text File  |  1997-10-17  |  616 b   |  29 lines
  1. global pUp, pDown, pSomm, pHelp, pQuit, ThemeUp
  2.  
  3. on mouseUp
  4.   puppetSound("Beep-" & random(26))
  5.   repeat with i = pUp to pQuit
  6.     set the visible of sprite (i + 6) to 0
  7.   end repeat
  8.   updateStage()
  9.   repeat while soundBusy(1)
  10.     nothing()
  11.   end repeat
  12.   puppetTransition(member "TransUp" of castLib "Master")
  13.   repeat with i = 1 to 4
  14.     puppetSound(i, 0)
  15.   end repeat
  16.   if marker(0) = label("PS") then
  17.     go(3000)
  18.     go("MA", "MgicFlor")
  19.   else
  20.     if the machineType = 256 then
  21.       go(3000)
  22.       go(ThemeUp, field "MovieUp")
  23.     else
  24.       go(3000)
  25.       go(ThemeUp, "HerFloor.dir")
  26.     end if
  27.   end if
  28. end
  29.